home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / write.lha / WRITE / REXX / REXX.lha / ClearUmlautsList.wrx < prev    next >
Encoding:
Text File  |  1994-11-15  |  2.3 KB  |  84 lines
  1. /*
  2.  *
  3.  * Script für WRITE 3.520 © 1989 - 1994 by Tim Teulings
  4.  * Dieses REXX-Script konvertiert die Zeichen ä,ö,ü,Ä,Ö,Ü,ß nach
  5.  * ae,oe,ue,Ae,Oe,Ue,ss
  6.  *
  7.  * Dies ist sehr nützlich für Texte, die an einen PC oder Unix-Rechner
  8.  * übergeben werden sollen, oder die per EMail in eine Gruppe/ein Netz
  9.  * geschickt werden, welche(s) Umlaute verbietet.
  10.  *
  11.  * Im Gegensatz zu 'ClearUmlauts.wrx' benutzt dieses Script die
  12.  * REPLACELIST-Funktion. Dies sollte schneller sein.
  13.  */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. IF ~show('P',"WRITE")
  18. THEN DO
  19.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  20.  exit 10
  21. END
  22.  
  23. ADDRESS "WRITE"
  24.  
  25. 'VERSIONCHECK 31090 "ClearUmlautsList"'
  26. IF RC~=0 THEN DO
  27.   exit 10
  28. END
  29.  
  30. 'GETVAR "_CurrentID"'
  31. ID = RESULT           /* GETVAR gibt den ID des aktuellen Fenster zurück,  */
  32.                       /* der von den weiteren Befehlen benötigt wird.      */
  33.  
  34. IF ID=0 THEN DO
  35.   MESSAGEOK (Kein Fenster aktiviert !)
  36.   EXIT
  37. END
  38.  
  39. OPENPORT ID           /* PrivatePort des aktuellen Fensters öffnen        */
  40. Port = RESULT
  41.  
  42. IF Port="" THEN DO    /* 'OPENPORT' gibt "" zurück, wenn Port nicht       */
  43.                       /* geöffnet werden konnte                           */
  44.  
  45.   LOCKWINDOW ID
  46. END
  47. ELSE DO
  48.   INTERPRET ADDRESS Port  /* PrivatePort addressieren.Alle Komandos beziehen */
  49.                           /* sich nun auf das Fenster mit diesem Port        */
  50. END
  51.  
  52. 'SILENT'                /* Silent-Mode wegen Geschwindigkeit               */
  53.  
  54. 'GETVAR "_xPos"'        /* Cursorposition holen                            */
  55. OldPos.x = RESULT
  56. 'GETVAR "_yPos"'
  57. OldPos.y = RESULT
  58.  
  59. CLEARLIST 0
  60. 'ADDLIST "ä" 0 ADDLIST "ae" 0 ADDLIST "ö" 0 ADDLIST "oe" 0 ADDLIST "ü" 0 ADDLIST "ue" 0'
  61. 'ADDLIST "Ä" 0 ADDLIST "Ae" 0 ADDLIST "Ö" 0 ADDLIST "Oe" 0 ADDLIST "Ü" 0 ADDLIST "Ue" 0 ADDLIST "ß" 0 ADDLIST "ss" 0'
  62.  
  63. 'GETVAR "_Marked"'
  64. Marked = RESULT
  65. IF Marked = 2 THEN DO
  66.   'REPLACELIST 0 @MARKA @MARKA @MARKB @MARKB {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  67. END
  68. ELSE DO
  69.   'REPLACELIST 0 @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  70. END
  71.  
  72. GOTO OldPos.x OldPos.y  /* Wieder zur alten Position zurückspringen        */
  73.  
  74. WINDOW 0 0 0 0          /* Silent-Mode wieder ausschalten                  */
  75.  
  76. "MESSAGEOK (REXX-Script\n'ClearUmlautsList'\n\nFertig !)"
  77.  
  78. IF Port="" THEN DO
  79.   LOCKWINDOW 0
  80. END
  81. ELSE DO
  82.   CLOSEPORT ID
  83. END
  84.